home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / デモソフトライブラリー / 日本テレコムODNスターターキット / OT⁄PPP 1.0 Install / CCL Disk / Modem CCLs / OKI PCLINK TA V.110 38.4k / OKI PCLINK TA V.110 38.4k next >
Text File  |  1997-05-28  |  4KB  |  236 lines
  1. ! "OKI PCLINK TA Series (V.110) 38.4K    V1.0 - 96/11/25"
  2. !  Copyright  OKITEC,LTD
  3. !
  4. @ORIGINATE
  5. @ANSWER
  6. !
  7. @LABEL 1
  8. serreset 38400, 0, 8, 1
  9. HSRESET 0 1 0 0 0 0
  10. !
  11. ! first recall the factory configuration, and get the modem in enhanced command state
  12. !
  13. pause 1
  14. matchclr
  15. matchstr 1 4 "OK¥13¥10"
  16. write "AT&F¥13"
  17. matchread 10
  18. jump 59
  19. !
  20. ! Next, Set up the configuration: 
  21. ! Turn off auto answer and echo
  22. !
  23. @LABEL 4
  24. pause 1
  25. matchstr 1 5 "OK¥13¥10"
  26. write "ATE0S0=0¥13"
  27. matchread 10
  28. jump 59
  29. !
  30. ! Set result codes (Protocol Indication)
  31. !
  32. @LABEL 5
  33. pause 1
  34. matchstr 1 8 "OK¥13¥10"
  35. write "AT¥¥V2&E0¥13"
  36. matchread 10
  37. jump 59
  38. !
  39. ! The modem is ready so enable answering, or originate a call
  40. !
  41. @LABEL 8
  42. pause 1
  43. ifANSWER 30
  44. !
  45. ! Using analog line in case of modem mode ($H1=1 command is added)
  46. !
  47. note "Dialing ^1" 3
  48. write "ATDC^1¥13"
  49. !
  50. @LABEL 9
  51. matchstr  1  11 "CONNECT 2400/V.110¥13¥10"
  52. matchstr  2  12 "CONNECT 2400/PAD¥13¥10"
  53. matchstr  3  13 "CONNECT 4800/V.110¥13¥10"
  54. matchstr  4  14 "CONNECT 4800/PAD¥13¥10"
  55. matchstr  5  15 "CONNECT 9600/V.110¥13¥10"
  56. matchstr  6  16 "CONNECT 9600/PAD¥13¥10"
  57. matchstr  7  17 "CONNECT 19200/V.110¥13¥10"
  58. matchstr  8  18 "CONNECT 19200/PAD¥13¥10"
  59. matchstr  9  19 "CONNECT 38400/V.110¥13¥10"
  60. matchstr 10  20 "CONNECT 38400/PAD¥13¥10"
  61. matchstr 11  21 "CONNECT 64000/PAD¥13¥10"
  62. matchstr 12  50 "NO CARRIER¥13¥10"
  63. matchstr 13  50 "ERROR¥13¥10"
  64. matchstr 14  52 "NO DIALTONE¥13¥10"
  65. matchstr 15  53 "BUSY¥13¥10"
  66. matchstr 16  54 "NO ANSWER¥13¥10"
  67. matchread 700
  68. jump 59
  69. !
  70. @LABEL 11
  71. note "2400bps V.110ﾓｰﾄﾞで通信中です。" 2
  72. serreset  38400, 0, 8, 1
  73. communicatingat 2400
  74. jump 25
  75. !
  76. @LABEL 12
  77. note "2400bps 独自ﾓｰﾄﾞで通信中です。" 2
  78. serreset  38400, 0, 8, 1
  79. communicatingat 2400
  80. jump 25
  81. !
  82. @LABEL 13
  83. note "4800bps V.110ﾓｰﾄﾞで通信中です。" 2
  84. serreset  38400, 0, 8, 1
  85. communicatingat 4800
  86. jump 25
  87. !
  88. @LABEL 14
  89. note "4800bps 独自ﾓｰﾄﾞで通信中です。" 2
  90. serreset  38400, 0, 8, 1
  91. communicatingat 4800
  92. jump 25
  93. !
  94. @LABEL 15
  95. note "9600bps V.110ﾓｰﾄﾞで通信中です。" 2
  96. serreset  38400, 0, 8, 1
  97. communicatingat 9600
  98. jump 25
  99. !
  100. @LABEL 16
  101. note "9600bps 独自ﾓｰﾄﾞで通信中です。" 2
  102. serreset  38400, 0, 8, 1
  103. communicatingat 9600
  104. jump 25
  105. !
  106. @LABEL 17
  107. note "19200bps V.110ﾓｰﾄﾞで通信中です。" 2
  108. serreset 38400, 0, 8, 1
  109. communicatingat 19200
  110. jump 25
  111. !
  112. @LABEL 18
  113. note "19200bps 独自ﾓｰﾄﾞで通信中です。" 2
  114. serreset 38400, 0, 8, 1
  115. communicatingat 19200
  116. jump 25
  117. !
  118. @LABEL 19
  119. note "38400bps V.110ﾓｰﾄﾞで通信中です。" 2
  120. serreset 38400, 0, 8, 1
  121. communicatingat 38400
  122. jump 25
  123. !
  124. @LABEL 20
  125. note "38400bps 独自ﾓｰﾄﾞで通信中です。" 2
  126. serreset 38400, 0, 8, 1
  127. communicatingat 38400
  128. jump 25
  129. !
  130. @LABEL 21
  131. note "64000bps 独自ﾓｰﾄﾞで通信中です。" 2
  132. serreset 38400, 0, 8, 1
  133. communicatingat 38400
  134. jump 25
  135. !
  136. @LABEL 25
  137. HSReset 0 1 0 0 0 0 
  138. ifANSWER 26
  139. pause 30
  140. !
  141. @LABEL 26
  142. exit 0
  143. !
  144. ! @ANSWER
  145. ! Set up the modem to answer
  146. @LABEL 30
  147. pause 1
  148. matchstr 1 31 "OK¥13¥10"
  149. write "ATS0=1¥13"
  150. matchread 10
  151. jump 59
  152. !
  153. @LABEL 31
  154. matchstr  1  32 "RING¥13¥10"
  155. matchstr  2  11 "CONNECT 2400/V.110¥13¥10"
  156. matchstr  3  12 "CONNECT 2400/PAD¥13¥10"
  157. matchstr  4  13 "CONNECT 4800/V.110¥13¥10"
  158. matchstr  5  14 "CONNECT 4800/PAD¥13¥10"
  159. matchstr  6  15 "CONNECT 9600/V.110¥13¥10"
  160. matchstr  7  16 "CONNECT 9600/PAD¥13¥10"
  161. matchstr  8  17 "CONNECT 19200/V.110¥13¥10"
  162. matchstr  9  18 "CONNECT 19200/PAD¥13¥10"
  163. matchstr 10  19 "CONNECT 38400/V.110¥13¥10"
  164. matchstr 11  20 "CONNECT 38400/PAD¥13¥10"
  165. matchstr 12  21 "CONNECT 64000/PAD¥13¥10"
  166. matchstr 13  50 "NO CARRIER¥13¥10"
  167. matchstr 14  50 "ERROR¥13¥10"
  168. matchstr 15  52 "NO DIALTONE¥13¥10"
  169. matchstr 16  53 "BUSY¥13¥10"
  170. matchstr 17  54 "NO ANSWER¥13¥10"
  171. matchread 700
  172. jump 31
  173. !
  174. @LABEL 32
  175. userhook 1
  176. note "着信中です。" 2
  177. jump 31
  178. !
  179. ! 50: error messages
  180. !
  181. @LABEL 50
  182. exit -6021
  183. !
  184. @LABEL 52
  185. exit -6020
  186. !
  187. @LABEL 53
  188. exit -6022
  189. !
  190. @LABEL 54
  191. exit -6023
  192. !
  193. @LABEL 59
  194. exit -6019
  195. !
  196. ! Hang up the modem
  197. !
  198. @HANGUP
  199. @LABEL 60
  200. ! HSReset 0 1 0 0 0 0 
  201. @LABEL 61
  202. matchclr
  203. write "AT¥13"
  204. matchstr 1 63 "OK¥13¥10"
  205. matchread 5
  206. @LABEL 62
  207. PAUSE 10
  208. matchclr
  209. write "+++"
  210. matchstr 1 63 "OK¥13¥10"
  211. matchread 15
  212. @LABEL 63
  213. PAUSE 1
  214. matchclr
  215. write "ATH¥13"
  216. matchstr 1 72 "NO CARRIER¥13¥10"
  217. matchstr 2 72 "OK¥13¥10"
  218. matchstr 3 72 "ERROR¥13¥10"
  219. matchread 70
  220. jump 62
  221. !
  222. @LABEL 72
  223. ! RESET MODEM
  224. pause 1
  225. write "AT&F¥13"
  226. matchclr
  227. matchstr 1 73 "OK¥13¥10"
  228. matchread 10
  229. jump 61
  230. !
  231. @LABEL 73
  232. pause 1
  233. !
  234. @LABEL 74
  235. exit 0
  236.